System Booster/System Booster.iso/Texteditors/Origami/bindings/fun/userlang

Text File | 1996-09-27 | 1.6 KB | 64 lines

@if-using not(ocl-file-userlang)
   @use (ocl-file-userlang)
   ;OCL{{{}}}
   ;OCL{{{  reference description
   @if-using ( FUN-REFERENCE ) ; 1 ;
   This library defines some functions, to test some `User' cold comment
   languages.

   The functions must be enalbed using the following tags:
   @ref-start-tbl Tag 16 Function 32
   language-ocl @@ test-language-ocl
   @ref-end-item
   @fi
   ;OCL}}}
   ;OCL{{{  test-language-ocl
   ;OCL{{{  reference
   @if-using ( FUN-REFERENCE ) ; 2 ; test-language-ocl-called
   ;OCL{{{  test-language-ocl
   Returns 1, if language is set to `User ;OCL ',else 0.
   ;OCL}}}
   @fi
   ;OCL}}}
   @if-using ( language-ocl )
   ( deffun test-language-ocl
      ( if
           and
            ( test-language User
              =("; fold-comment-start 0)
              =("O fold-comment-start 1)
              =("C fold-comment-start 2)
              =("L fold-comment-start 3)
            )
         ( return-value-from-macro true )
        fi
        return-value-from-macro false
      )
   )
   @fi
   ;OCL}}}
   ;OCL{{{  test-language-miranda
   ;OCL{{{  reference
   @if-using ( FUN-REFERENCE ) ; 2 ; test-language-miranda-called
   ;OCL{{{  test-language-miranda
   Returns 1, if language is set to `User || ',else 0.
   ;OCL}}}
   @fi
   ;OCL}}}
   @if-using ( language-miranda )
   ( deffun test-language-miranda
      ( if
           and
            ( test-language User
              =("| fold-comment-start 0)
              =("| fold-comment-start 1)
            )
         ( return-value-from-macro true )
        fi
        return-value-from-macro false
      )
   )
   @fi
   ;OCL}}}
@fi